home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / ID008.dxr / 00032.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  392 b   |  19 lines
  1. on exitFrame
  2.   puppetSprite(3, 0)
  3.   puppetSprite(4, 1)
  4.   set LastTick to the ticks
  5.   set OriginalTick to the ticks
  6.   repeat while (the ticks - OriginalTick) < 30
  7.     set y to 4 * (the ticks - LastTick)
  8.     set LastTick to the ticks
  9.     set the locV of sprite 4 to the locV of sprite 4 + y
  10.     updateStage()
  11.   end repeat
  12.   puppetSprite(4, 0)
  13. end
  14.  
  15. on mouseUp
  16.   puppetSprite(4, 0)
  17.   go(114)
  18. end
  19.